! 作用域会拓展，　下例中use1的作用域直接拓展到program use_中了

module use1
  implicit none
  integer :: i=1, j=2, k=3
end module use1

module use2
  use use1
  implicit none
  integer :: l=4, m=5, n=6
end module use2

program use_
  use use2
  implicit none
  write(*,*) i 

end program use_